给动易加上关键字屏蔽功能，防止垃圾留言！这个修改适用于POWEREASY6.5以上的版本。


具体修改方法：

修改Include/PowerEasy.Comment.asp文件：
查找代码：

CommentUserContent = PE_HTMLEncode(CommentUserContent)

在下面加入：

    If GuestBook_EnableManageRubbish = True And ManageRubbishContent(GuestBook_ManageRubbish, CommentUserContent) Then '雨哲[Yz81.Com]测试
        FoundErr = True
        ErrMsg = ErrMsg & "<li>您输入的内容涉嫌广告，禁止评论！</li>"
        Exit Sub
    End If

到最后，下面这段代码加在%>上面：

'=================================================
'函数名：ManageRubbishContent()
'作  用：屏蔽垃圾广告子函数
'参  数：无
'=================================================
Private Function ManageRubbishContent(ByVal GuestBook_ManageRubbish, ByVal GuestContent)
    Dim RubbishContent
    RubbishContent = False
    ManageRubbishContent = RubbishContent
    Dim i, obj
    If GuestBook_ManageRubbish = "" Or IsNull(GuestBook_ManageRubbish) Then
        RubbishContent = False
        Exit Function
    End If
    obj = Split(GuestBook_ManageRubbish, "$$$")
    If GuestContent = "" Then Exit Function
    For i = 0 To UBound(obj)
        If Trim(obj(i)) <> "" And InStr(GuestContent, Trim(obj(i))) > 0 Then
            RubbishContent = True
            If RubbishContent Then Exit For
        End If
    Next
    ManageRubbishContent = RubbishContent
End Function

文件修改好后，登录动易后台，找到　网站信息配置--留言本选项　写上你要屏蔽的关键字。　我这里主要用了下面三个，因为广告都是要链接的，你可以根据自己的需要做改动。
http://
www
https://

大功告成，到你的文章留言那里测试下效果吧。

修改自动易论坛